home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASWIZ14.ZIP / BACHINV.PAS next >
Encoding:
Pascal/Delphi Source File  |  1993-02-28  |  1.6 KB  |  44 lines
  1. { Invention #14 in B flat major
  2.     by Johann Sebastian Bach
  3.     PC translation by John E. Mountain (for GWBASIC, circa 1984) }
  4.  
  5. { This is a demonstration of the music support
  6.   provided by the Pascal Wizard's Library }
  7.  
  8.  
  9.  
  10. {$M $2000,0,0 }          { stack size, min heap, max heap (bytes) }
  11. {$D-}                    { debug info off }
  12. {$A-}                    { word alignment off (so use byte alignment) }
  13. {$I-}                    { don't crash on errors }
  14.  
  15.  
  16.  
  17. USES
  18.    Music;
  19.  
  20. VAR
  21.    A, B, C, D:
  22.       String;
  23.  
  24. BEGIN
  25.    A := 'MBO3L32P32B-O4CDCO3L16B-O4FDB-FDL32FE-DE-L16FO3B-O4DO3FA-GL32E-FGFL16E-B-GO4E-O3B-GL32B-A-GA-L16B-E-GCE-O2AL32'
  26.     + 'O3CDE-DL16CAFO4CO3AO4E-L32O3FGAGL16FO4CO3AO4FCD4P4P16L32GFE-FL16GC8P8P16L32FE-DE-F16O3B-8P8P16E-DCDE-16O3A16O4CO'
  27.     + '3B-AB-O4C16O3F8P8';
  28.    B := 'O4F8O3F8A8O4C8F4P4P8O3F8B-8O4D8F4P4P8O3G8B-8O4C8E4P4P16O3FGAGL16FO4CO3AO4FCAL32E-DCDL16E-O3AO4CO3F+AL8B-O4DO3'
  29.     + 'B-GA-O4FO3AFG16L32CDE-DL16CGE-O4CO3GO4DL32O3A-GFGL16A-DFO2BO3GE-8P8P16L32CDE-DC16O4C8.O3B-16A-16FGA-GF16O4F8.E-16'
  30.     + 'D16O3B-O4CDCO3B-16';
  31.    C := 'O4B-8.A-16G16B-A-GA-B-16E-16GFE-FG16C16E-DCDE-16O3A16O4CDE-DC16F16O3A-GFGA-16G16B-O4CDCO3B-16O4E-16O3GFE-FG16'
  32.     + 'F16AB-O4CO3B-A16O4D16O3FE-DE-F16E-16GAB-AG16O4C16O3E-DCDE-16D16P8.P16B-O4CDCO3B-16L16O4FDB-FDL32FE-DE-L16FO3B-O4'
  33.     + 'E-O3B-O4E-O3GL32E-FGF';
  34.    D := 'L16E-B-GO4E-O3B-GL32B-A-GA-B-16E-8O4E-8E-16E-DCDE-16O3E-8O4E-8E-16CDE-DC16F16DCO3B-O4CD16L16O3FB-O4CO3A-B-2P2';
  35.    PlayMF(A);
  36.    PlayMF(B);
  37.    PlayMF(C);
  38.    PlayMF(D);
  39.    PlayMF(A);
  40.    PlayMF(B);
  41.    PlayMF(C);
  42.    PlayMF(D);
  43. END.
  44.